home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ IE URLs 1.xpl < prev    next >
Text File  |  2001-05-05  |  3KB  |  87 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="3"
  3. "COUNT"="3"
  4. "UIPATH"="Internet\Internet Explorer\Appearance"
  5. "NAME"="URLs Options"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.43"
  8. "TEXT 1"="Search Page"
  9. "TEXT 2"="Toolbar Search"
  10. "TEXT 3"="Radio Station"
  11. "DESCRIPTION 1"="With the URL for "Page" you can change the URL that will be opened if you select "Start"|"Search"|"The web" or click "Go to"|"Seach page" inside Internet Explorer (default is http://www.microsoft.com/isapi/redir.dll?prd=ie&ar=iesearch)."
  12. "DESCRIPTION 2"="With the URL for "Toolbar" you can change the URL that will be opened if you click the Search Button on the toolbar of Internet Explorer."
  13. "DESCRIPTION 3"="With the URL for "Radio Station" you can change the URL that will be displayed if you click the "Radio station Guide" button on the "Radio" toolbar (default is http://windowsmedia.com/mediaguide/default.asp)."
  14. "DESCRIPTION 4"="For all entries, you can either select a local HTML file or enter an URL directly, like http://www.hotbot.com."
  15. "DESCRIPTION 5"="NOTE: To have the default URLs restore, clear the fields."
  16. "AUTHOR"="Xteq Systems"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"=" "
  20. "COMMENT 2"="Thanks to Roxarius [mailto:rosarius@tin.it] for the HKCU bug notice!"
  21.  
  22.  
  23. sV2="HKCU\Software\Microsoft\Internet Explorer\Main\Search Bar"
  24.  
  25. sP3="HKLM\SOFTWARE\Policies\Microsoft\WindowsMediaPlayer\"
  26. sV3="DefaultURLFindNewStations" 'string - "http://webevents.microsoft.com/radiobar.asp"
  27.  
  28. Sub Plugin_Initialize 
  29.  if RegPathExists("HKCU\Software\Microsoft\Internet Explorer") then
  30.   s=RegReadValue("HKCU\Software\Microsoft\Internet Explorer\Main\Search Page")
  31.   SetUIElement 1,s
  32.  
  33.   s=RegReadValue(sV2)
  34.   SetUIElement 2,s
  35.  
  36.   s=RegReadValue(SP3 & sV3)
  37.   SetUIElement 3,s
  38.  else
  39.   Disable
  40.  end if
  41. End Sub
  42.  
  43.  
  44. Sub Plugin_CheckData(ElementIndex)
  45. End Sub
  46.  
  47.  
  48.  
  49. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  50.  s=GetUIElement(1)
  51.  if len(s)>0 then
  52.     Call RegWriteValue("HKCU\Software\Microsoft\Internet Explorer\Main\Search Page",s,1)
  53.  else
  54.     s=RegReadValue("HKCU\Software\Microsoft\Internet Explorer\Main\Search Page")
  55.     if IsEmpty(s)=false then Call RegDeleteValue("HKCU\Software\Microsoft\Internet Explorer\Main\Search Page")
  56.  end if
  57.  
  58.  
  59.  s=GetUIElement(2)
  60.  if len(s)>0 then
  61.     Call RegWriteValue(sV2,s,1)
  62.  else
  63.     s=RegReadValue(sV2)
  64.     if IsEmpty(s)=false then 
  65.        Call RegDeleteValue(sV2)
  66.     end if 
  67.  end if
  68.  
  69.  
  70.  s=GetUIElement(3)
  71.  if len(s)>0 then
  72.     Call RegWriteValue(sP3 & sV3,s,1)
  73.  else
  74.     s=RegReadValue(sP3 & sV3)
  75.     if IsEmpty(s)=false then Call RegDeleteValue(sP3 & sV3)
  76.  end if
  77.  
  78.  Call Logoff()
  79. End Sub
  80.  
  81.  
  82. Sub Plugin_Terminate 
  83. End Sub
  84.  
  85.  
  86.  
  87.